﻿Public Class usrCadCliente

#Region "Declaracoes"

    Private msg As String

#End Region


#Region "Eventos"

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btFiltrar.Click
        Dim frm As New frmConsult
        frm.Text = "Clientes"
        frm.ShowDialog()
    End Sub

    Private Sub btSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSalvar.Click
        If isEmpty() Then
            MsgBox(msg, MsgBoxStyle.OkOnly, "Alerta")
        Else
            MsgBox("Registro Salvo com Sucesso", MsgBoxStyle.OkOnly, "Sucesso")
            limparCampos()
        End If
    End Sub

    Private Sub btFechar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Dispose()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btFechar.Click
        If btFechar.Text.Equals("        Cancelar") Then
            estadoInicialDosCampos()
            limparCampos()
        Else
            Me.Dispose()
        End If
    End Sub

    Private Sub btPesquisarClientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btPesquisarClientes.Click
        If txtNome.Text.Equals("") Then
            MsgBox("Preencha o campo NOME para pesquisar")
        Else
            Dim frm As New frmConsult
            frm.Text = "Clientes"
            frm.ShowDialog()
        End If
    End Sub

    Private Sub usrCadCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        estadoInicialDosCampos()
    End Sub

    Private Sub btNovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btNovo.Click
        estadoCamposNovoRegistro()
    End Sub

#End Region


#Region "Metodos"


#Region "Estado dos Campos"

    Private Sub estadoInicialDosCampos()
        btExcluir.Enabled = False
        btSalvar.Enabled = False
        btNovo.Enabled = True
        btFiltrar.Enabled = True
        btPesquisarClientes.Enabled = True
        btFechar.Text = "      Fechar"

        txtCartMot.Enabled = False
        txtCEP.Enabled = False
        txtCPF.Enabled = False
        txtIdade.Enabled = False
        txtNumero.Enabled = False
        txtRG.Enabled = False
        txtRua.Enabled = False
        txtTipoLogradouro.Enabled = False
    End Sub

    Private Sub estadoCamposNovoRegistro()

        btExcluir.Enabled = False
        btFiltrar.Enabled = False
        btNovo.Enabled = False
        btPesquisarClientes.Enabled = False
        btSalvar.Enabled = True
        btFechar.Text = "        Cancelar"

        txtCartMot.Enabled = True
        txtCEP.Enabled = True
        txtCPF.Enabled = True
        txtIdade.Enabled = True
        txtNumero.Enabled = True
        txtRG.Enabled = True

    End Sub

    Private Sub estadoCamposCEPNaoEncontrado()
        txtRua.Enabled = True
        txtTipoLogradouro.Enabled = True
    End Sub

    Private Sub estadoCamposEdicao()

        btExcluir.Enabled = True
        btFiltrar.Enabled = False
        btNovo.Enabled = False
        btPesquisarClientes.Enabled = False
        btSalvar.Enabled = True
        btFechar.Text = "        Cancelar"

        txtCartMot.Enabled = True
        txtCEP.Enabled = True
        txtCPF.Enabled = True
        txtIdade.Enabled = True
        txtNumero.Enabled = True
        txtRG.Enabled = True
    End Sub

#End Region


#Region "Validacoes"

    Private Function isEmpty() As Boolean

        msg = "Informe os Campos Abaixo"

        If txtCartMot.Text.Equals("") Then msg += vbCrLf + "- Carteira de Motorista"
        If txtCEP.Text.Equals("") Then msg += vbCrLf + "- CEP"
        If txtCPF.Text.Equals("") Then msg += vbCrLf + "- CPF"
        If txtIdade.Text.Equals("") Then msg += vbCrLf + "- Idade"
        If txtNome.Text.Equals("") Then msg += vbCrLf + "- Nome"
        If txtNumero.Text.Equals("") Then msg += vbCrLf + "- Numero"
        If txtRG.Text.Equals("") Then msg += vbCrLf + "- RG"

        If msg <> "Informe os Campos Abaixo" Then
            Return True
        Else
            Return False
        End If

    End Function

    Private Sub limparCampos()

        txtCartMot.Text = String.Empty
        txtCEP.Text = String.Empty
        txtCPF.Text = String.Empty
        txtIdade.Text = String.Empty
        txtNome.Text = String.Empty
        txtNumero.Text = String.Empty
        txtRG.Text = String.Empty
        txtRua.Text = String.Empty
        txtTipoLogradouro.Text = String.Empty

    End Sub


#End Region

    Public Shared Sub ClienteSelecionado(ByVal id As Integer)
        MsgBox(id)



    End Sub


#End Region

End Class
